"%&%" <-
function (a, b) 
##=======================================================
## for concatenating strings
##=======================================================
{
    paste(a, b, sep = "")
}
